home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / SE.reader < prev    next >
Text File  |  1995-09-30  |  980b  |  53 lines
  1. /*
  2. ** $VER: SE.reader 1.2 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. cmd = 'SC:c/SE'
  11. IF ~EXISTS(cmd) THEN RETURN 2
  12.  
  13. SELECT
  14.    WHEN UPPER(ARG(1)) = 'READ' THEN DO
  15.       PARSE ARG , file, port
  16.  
  17.       port = 'SC_SE'
  18.       IF ~show('P', port) THEN DO
  19.          ADDRESS COMMAND
  20.          'Run >NIL: "'cmd'" "'file'"'
  21.          'WaitForPort' port
  22.          IF RC ~= 0 THEN RETURN 5
  23.       END
  24.       ELSE DO
  25.          ADDRESS VALUE port
  26.          'PM "O" "'file'\n"'
  27.       END
  28.       ADDRESS VALUE port
  29.       'BT'
  30.       'GT'
  31.       DO WHILE RESULT ~= ""
  32.          'NL GT'
  33.       END
  34.    END
  35.    WHEN UPPER(ARG(1)) = 'CLEAR' THEN DO
  36.       PARSE ARG , port
  37.  
  38.       IF show('P', port) & port = 'SC_SE' THEN DO
  39.          ADDRESS VALUE port
  40.          'QU'
  41.       END
  42.    END
  43.    WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
  44.       PARSE ARG , port
  45.  
  46.       IF show('P', port) & port = 'SC_SE' THEN DO
  47.          ADDRESS VALUE port
  48.          'QU'
  49.       END
  50.    END
  51. END
  52. RETURN port
  53.